home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software of the Month Club 1996 August
/
Software of the Month Club 1996 August.iso
/
pc
/
os2
/
famtree
/
weddings.ftx
< prev
Wrap
Text File
|
1996-05-24
|
2KB
|
79 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier>
Please send comments to / Kommentar bitte an
meier2@athene.informatik.uni-bonn.de
<This script shows all wedding aniversaries in this year
/ Dieses Skript zeigt jedes Heiratsjubilaeum in diesem Jahr>
*/
/* ----------------------- Params / Parameter ------------------- */
datewidth=10
yearwidth=datewidth+9
IF getLanguage()='Deutsch' THEN DO
header ='Heiratsjubilaeum in diesem Jahr (Jahrestag) '
END
ELSE DO
header ='Wedding Anniversary this year (next anniversary) '
END
/* -------------------------- Output / Ausgabe --------------------- */
SAY(header)
SAY(.........................................)
/* Sort Families by Date Month,Day / Familien nach Monat,Tag sortieren */
rc=sortFamilies('MM,MD')
/* Calculate actual year / aktuelles Jahr berechnen */
thisyear=WORD(DATE(),3)
/* Display families in tree / Familien ausgeben */
rc=selectFamily('F')
DO WHILE rc=1
/* Get month / berechne Monat */
result=getMarriageDate('m')
/* Check if we've got a month / nachpruefen ob wir Monat haben */
IF result<>'?' THEN DO
/* Get Day / berechne Tag */
day=getMarriageDate('D')
if day<>0 THEN
result=result||' '||day
result=LEFT(result,datewidth)
/* Add anniversary / plus Jahrestag */
year=getMarriageDate('Y')
IF year<>0 THEN
result=result||' ('||thisyear-year||')'
result=LEFT(result,yearwidth)
/* Add name,first name / plus Name,Vorname */
rc=selectPerson('f')
result=result||getName()||','||getFirstName()
rc=selectPerson('m')
result=result||' - '||getName()||','||getFirstName()
/* output / Ausgabe */
SAY(result)
END
/* Next one */
rc=selectFamily('N')
END
/* Done */
RETURN